home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Big Mouth 18
/
Big_Mouth_The_18_1998_-_Side_D.d64
/
03- iskee!!
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
35 lines
5 fori=0to24:poke54272+i,0:next:poke54296,15+16
6 poke54278,14*16+14:poke54273,3:poke54275,8:poke54276,65
7 poke54278+7,14*16+14:poke54273+7,3:poke54279,2:poke54275+7,8:poke54276+7,65
8 poke54295,1+2+15*16*1
9 poke54294,20
10 poke53281,0:poke53280,0
12 print"[147][153]dot tunnel!":poke198,0
15 dim a$(16):f=0
20 a$(0)="":fori=1to16:a$(i)=a$(i-1)+"":next
23 fori=1to350
24 geta$:ifa$=""thennext
28 poke56334,0
100 fori=0to8.37step.2:s=6*sin(i*.75):x=s+11:w=s*1.3+13:v=s*1.6+14:u=s*2+16
110 t=s*2.4+17:m=2.5*cos(i):r=m+3:q=m*1.2+5:p=m*1.44+6:o=m*1.73+8:n=m*2.07+9
1005 print"[147]"a$(n)spc(t)"[151][209]":printspc(t)"[209][209]":printspc(t)"[209][209]"
1010 printspc(t)"[209][209]":printspc(t)"[209]":print""a$(o)spc(u)"[209]"
1105 printspc(u)"[209][209]":printspc(u)"[209][209]":printspc(u)"[209][209]"
1112 printspc(u)"[209]":print""a$(p)spc(v)"[152][209]":poke54294,u*2
1204 printspc(v)"[209][209]":printspc(v)"[209][209]"
1212 printspc(v)"[209][209]":printspc(v)"[209]"
1301 print""a$(q)spc(w)"[155][209]":printspc(w)"[209][209]"
1308 printspc(w)"[209][209]":printspc(w)"[209][209]"
1315 printspc(w)"[209]":print""a$(r)spc(x)"[209]"
1402 printspc(x)"[209][209]"
1408 printspc(x)"[209][209]":printspc(x)"[209][209]"
1416 printspc(x)"[209]":next
1500 poke56334,1:fori=1to500:next
1510 poke53281,5:poke53280,5
1550 print"[147][153] hmm... let's check out something"
1560 print" more cool... :) :) :)"
1570 print"load"chr$(34)"04*"chr$(34)",8:"
1580 print"run:";
1600 poke198,2:poke631,13:poke632,13
2000 end